		.globl 	dcm
		.globl	mcm
		
dcm: 		# a0 y a1 son los dos parametros
		# el resultado se guarda en v0  
		subu 	$sp, $sp, 8
		sw 	$gp, 0($sp)
		sw	$fp, 4($sp)
		move 	$8, $4  
		move 	$9, $5
itera:  	beq 	$9, $0, fin 
		div 	$8, $9  
		move	$8, $9  
		mfhi 	$9  
		j	itera
fin:   		move 	$2, $8
		lw	$fp, 4($sp)
		lw 	$gp, 0($sp)
		addu	$sp, $sp, 8
		jr 	$ra
		
mcm:		# a0 y a1 son los dos numeros parametros 
		# a2 es el dcm que ya se calculo anteriormente
		# el resultado se guarda en v0
		subu	$sp, $sp, 40
		sw 		$ra, 32($sp)
		sw 		$gp, 28($sp)
		sw		$fp, 24($sp)
		mult		$4,$5
		mfhi		$8
		bne		$8, $0, sup_max
		mflo		$16
		sw		$16, 20($sp)
		sw		$4,  0($sp)
		sw		$5,  4($sp)
		lw 		$4,  0($sp)
		lw		$5,  4($sp)
		jal		dcm
		move		$6,  $2
		lw		$16, 20($sp)
		div		$2,  $16, $6
		j		todo_ok
sup_max:
		move		$2, $0
todo_ok:
		lw		$fp, 24($sp)
		lw 		$gp, 28($sp)
		lw 		$ra, 32($sp)
		addi		$sp, $sp, 40
	        jr 		$ra          
